﻿Namespace User

    Public Class Birthday

        Private _Month As Long
        Public Property Month() As Long
            Get
                Return _Month
            End Get
            Set(ByVal value As Long)
                _Month = value
            End Set
        End Property

        Private _Day As Long
        Public Property Day() As Long
            Get
                Return _Day
            End Get
            Set(ByVal value As Long)
                _Day = value
            End Set
        End Property

    End Class

End Namespace